home *** CD-ROM | disk | FTP | other *** search
/ VisualFX for ImageFX / VisualFX for Image FX 2 - Disc 2.iso / setup / 02 / 01.rexx
Encoding:
OS/2 REXX Batch file  |  1997-02-11  |  1.3 KB  |  64 lines
  1. /*
  2.                                  Visual FX
  3.                                     For
  4.                                  Image FX
  5.                                SetUp Script
  6.                            Written By J.L. White
  7.  
  8.                          (C)1997 Merlin's Software
  9.  
  10. */
  11. parse arg Num
  12. options results
  13. address "IMAGEFX.1"
  14.  
  15.  
  16.     NumA = 1
  17.     NumB = 50
  18.     NumC = 5
  19.  
  20.     RequestSlider '"Enter Amount For Feathering!"' NumA NumB NumC
  21.     STNum = Result
  22.  
  23.  
  24.     Gadget.1 = 'Select Type Of Flames!'
  25.     Gadget.2 = 'Wood'
  26.     Gadget.3 = 'Gas'
  27.     Gadget.4 = 'None'
  28.     ListRequest 4 Gadget
  29.     Type = 2
  30.     if result = 2 then Type = 0
  31.     if result = 3 then Type = 1
  32.     if result = 4 then Type = 2
  33.  
  34.     Style = 0
  35.     if Type < 2 then do
  36.         Gadget.1 = 'Select Flame Options!'
  37.         Gadget.2 = 'Growing & Radial Out'
  38.         Gadget.3 = 'Growing & Radial In'
  39.         Gadget.4 = 'Same Size & Radial In'
  40.         Gadget.5 = 'Same Size & Radial Out'
  41.         ListRequest 5 Gadget
  42.         if result = 2 then Style = 0
  43.         if result = 3 then Style = 1
  44.         if result = 4 then Style = 2
  45.         if result = 5 then Style = 3
  46.         end
  47.  
  48.     FireNum = 50
  49.     if Style > 1 then do
  50.         NumA = 1
  51.         NumB = 100
  52.         NumC = 30
  53.         RequestSlider '"Enter Thickness Of Flame!"' NumA NumB NumC
  54.         FireNum = Result
  55.         end
  56.  
  57.  
  58. call open TempFile,"RAM:"strip(Num),W
  59. call writeln TempFile,STNum
  60. call writeln TempFile,Type
  61. call writeln TempFile,Style
  62. call writeln TempFile,FireNum
  63. call close TempFile
  64.